Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume17 / mgr / part21 < prev next >

Wrap

Internet Message Format | 1989-01-19 | 51.9 KB

Subject: v17i022: MGR, Bellcore window manager, Part21/61 Newsgroups: comp.sources.unix Approved: rsalz@uunet.UU.NET Submitted-by: Stephen A. Uhler <sau@bellcore.com> Posting-number: Volume 17, Issue 22 Archive-name: mgr/part21 #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 21 (of 61)." # Contents: Makefile demo/misc/clock.c doc/zoom.1 font-32/Ugal12x20b # font-32/Ugal12x20r src/fast_scroll.c src/get_text.c src/getshell.c # src/oblit/line.c # Wrapped by rsalz@papaya.bbn.com on Thu Nov 17 21:05:24 1988 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Makefile'\" else echo shar: Extracting \"'Makefile'\" $5287 characters$ sed "s/^X//" >'Makefile' <<'END_OF_FILE' X# Copyright (c) 1987 Bellcore X# All Rights Reserved X# Permission is granted to copy or use this program, EXCEPT that it X# may not be sold for profit, the copyright notice must be reproduced X# on copies, and credit should be given to Bellcore where it is due. X# BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X X# $Header: Makefile,v 4.10 88/08/25 17:15:04 bianchi Exp $ X# $Source: /tmp/mgrsrc/RCS/Makefile,v $ X X# top level makefile for mgr X X######################################################################### X X# To make mgr type: X# make INSROOT=<root> TARGET=<target> [OTHERLIB=<otherlib>] X# <root> is the mgr root directory (normally /usr/mgr) X# <target> is the target version of mgr, typically X# prod: for the "production" monochrome release or X# color: for the color version X# <otherlib> is the name of any auxiliary graphics libraries required. X# The color (and 386/i) versions need -lpixrect X# X X#########################################################################33 X X X# set to root of mgr directory XINSROOT = /usr/mgr XINSROOT = /usr/public/pkg/nmgr X X# set to auxiliary bitmap library (use -lpixrect for color) XOTHERLIB=-lpixrect XOTHERLIB= X X# pieces necessary for creating demos and applications only X# (for not-necessarily-suns) XSMALLDIR = lib demo doc menu X X# directories that need making (-src, a special case) XSUBDIR = font icon $(SMALLDIR) X X# full mgr directories XALLDIR = src font-16 font-32 icon $(SMALLDIR) misc X XSTART=. X XCPIO=cpio XCPIO_OUT=mgr.cpio XCPIO_OPTS = ocv X XMAKE=make XTARGET=all X Xall: src $(SUBDIR) X X# this is broken - use co_mgr instead Xco: X -mkdir $(ALLDIR) X co `make -s list MAKE=true` X for i in $(ALLDIR); do \ X (cd $$i; echo " co: $$i";\ X co Makefile X $(MAKE) co ;\ X cd ..);\ X done X X# "make fast" builds the mgr command quickly, without paying attention X# to dependencies. X Xfast: X cd src; echo " making src fast"; $(MAKE) INSROOT=$(INSROOT) fast X X X# "make small" builds the mgr support library and support commands. X# A "small" mgr package (see smallinstall and smallcpio) is that portion X# which does not necessarily have to be on the same machine as the mgr X# command. X Xsmall: X for i in $(SMALLDIR); do \ X (cd $$i; echo " making $$i";\ X $(MAKE) INSROOT=$(INSROOT) $@;\ X cd ..);\ X done X X# "make <<directoryname>>" will make the named directory. Note that this X# is the better way to make individual subdirectories because that way X# INSROOT is propigated down to all files that need it, in particular X# "src" files. X X$(SUBDIR): X cd $@; echo " making $@"; $(MAKE) \ X OTHERLIB=$(OTHERLIB) INSROOT=$(INSROOT) all X Xsrc: X cd src; echo " making src"; $(MAKE) \ X OTHERLIB=$(OTHERLIB) INSROOT=$(INSROOT) $(TARGET) X X# "make install" installs mgr and all its support files and commands. X# mgr is not made setuid-root. X Xinstall: $(INSROOT) X cd src; \ X $(MAKE) OTHERLIB=$(OTHERLIB) INSROOT=$(INSROOT) $(TARGET) install; X for i in $(SUBDIR); do \ X (cd $$i; echo " installing $$i";\ X $(MAKE) OTHERLIB=$(OTHERLIB) INSROOT=$(INSROOT) install;\ X cd ..);\ X done X X# "make installasroot" runs "make install" as root. mgr and some of the X# support commands are made setuid-root. Xinstallasroot: X /bin/su root -c '$(MAKE) OTHERLIB=$(OTHERLIB) INSROOT=$(INSROOT) \ X TARGET=$(TARGET) install' X X# "make smallinstall" installs the mgr support commands which do not X# have to be on the same machine as the mgr command. Xsmallinstall: $(INSROOT) X for i in $(SMALLDIR); do \ X (cd $$i; echo " $@ing $$i";\ X $(MAKE) OTHERLIB=$(OTHERLIB) INSROOT=$(INSROOT) $@;\ X cd ..);\ X done X X$(INSROOT): X mkdir $@ X X# "make clean" removes all intermediate files created by "make all". X# "make clobber" removes all target files created by "make all". Xclean clobber: X -rm font X for i in $(ALLDIR); do \ X if [ -d $$i ]; then \ X (cd $$i; echo " $@ing $$i";\ X $(MAKE) INSROOT=$(INSROOT) $@;\ X cd ..);\ X fi; \ X done X X# "make list" outputs the complete list of files needed by "make all". X# This list is also what goes into a delivery package. X# This list is used by several scripts to keep track of stuff Xlist: X @echo $(START)/README X @echo $(START)/Makefile X @for i in $(ALLDIR); do \ X echo "$(START)/$$i"; \ X if [ -d $$i ]; then \ X cd $$i; $(MAKE) START=$(START)/$$i list; cd ..; \ X fi \ X done X X X# "make smalllist" outputs the list of files needed by "make small". X# This list is also what goes into a "small" delivery package. Xsmalllist: X @echo $(START)/README X @echo $(START)/Makefile X @echo $(START)/font X @echo $(START)/font/default.fnt X @echo $(START)/font/Makefile X @for i in $(SMALLDIR); do \ X (cd $$i; echo "$(START)/$$i";\ X $(MAKE) START=$(START)/$$i list;\ X cd ..);\ X done X X# "make cpio" creates a file containing a complete delivery package. Xcpio: X $(MAKE) -s list | $(CPIO) -$(CPIO_OPTS) > $(CPIO_OUT) X X# "make smallcpio" creates a file containing a "small" delivery package. Xsmallcpio: X $(MAKE) -s smalllist | $(CPIO) -$(CPIO_OPTS) > $(CPIO_OUT).small X X X# The FRC target forces items to remake. Thus "make lib" will X# issue the commands for the "lib" target, even though the lib directory X# exists. Xsrc $(SUBDIR): FRC X XFRC: X X# for GNU make X.PHONY: src $(SUBDIR) X.PHONY: clean list fast cpio smallcpio install smallinstall END_OF_FILE # end of 'Makefile' fi if test -f 'demo/misc/clock.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'demo/misc/clock.c'\" else echo shar: Extracting \"'demo/misc/clock.c'\" $5310 characters$ sed "s/^X//" >'demo/misc/clock.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: clock.c,v 4.2 88/06/22 14:37:25 bianchi Exp $ X $Source: /tmp/mgrsrc/demo/misc/RCS/clock.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/demo/misc/RCS/clock.c,v $$Revision: 4.2 $"; X X/* get today's date */ X X#include <errno.h> X#include <time.h> X#include <signal.h> X#include "term.h" X X#define FONT 14 /* default font */ X#define POLL 15 /* poll interval */ X#define FIX(x) ((x)>12?(x)-12:(x)) X#define dprintf if (debug) fprintf X Xstatic char line[MAXLINE]; Xstatic int x, y; /* starting coord for clock */ Xstatic int fired = 0; /* alarm fired */ Xstatic int armed = 0; /* alarm armed */ Xstatic int covered = 0; /* window is covered */ Xstatic int fx, fy; /* font size */ Xstatic int wx, wy; /* window size */ Xstatic char *alarm_time = NULL; Xstatic int debug; X Xstatic struct menu_entry enable[] = { X "ALARM CLOCK","", X "enable alarm","+\r", X}; X Xstatic struct menu_entry disable[] = { X "ALARM CLOCK","", X "disable alarm","-\r", X}; X Xmain(argc,argv) Xint argc; Xchar **argv; X { X int update(), clean(); X char *today(); X char buff[MAXLINE]; X int f_flag=0, s_flag=0, b_flag=0; X int font; X register int i; X char *getenv(); X X ckmgrterm( *argv ); X X debug = (getenv("DEBUG") != NULL); X for(i=1;i<argc;i++) X if (*argv[i] == '-') switch (argv[i][1]) { X case 'f': /* -f<fontnumber> select alternate font */ X f_flag++; X font=atoi(argv[i]+2); X break; X case 'b': /* -b bury the window immediately */ X b_flag++; X break; X case 's': /* -s don't resize window, center the display */ X s_flag++; X break; X } X else { X alarm_time = argv[i]; X dprintf(stderr,"Setting alarm time to: %s\n",alarm_time); X armed=1; X }; X X m_setup(0); X signal(SIGALRM,update); X signal(SIGINT,clean); X signal(SIGTERM,clean); X m_ttyset(); X if (armed) { X m_push(P_MENU|P_EVENT|P_FLAGS|P_FONT); X menu_load(1,2,enable); X menu_load(2,2,disable); X m_selectmenu(1+armed); X } X else X m_push(P_EVENT|P_FLAGS|P_FONT); X m_setmode(M_NOWRAP); X m_setmode(M_ABS); X m_setevent(BUTTON_1,"A\r"); X m_setevent(BUTTON_1U,"X\r"); X m_setevent(RESHAPE,"X\r"); X m_setevent(REDRAW,"X\r"); X m_setevent(COVERED,"C\r"); X m_setevent(UNCOVERED,"E\r"); X X if (f_flag) X m_font(font); X else X m_font(FONT); X if (!s_flag) X m_size(5,1); X if (b_flag) X m_clearmode(M_ACTIVATE); X X setxy(); X update(); X while (1) { X extern int errno; X X errno = 0; X *line = '\0'; X if (m_gets(line) == NULL && errno && errno != EINTR) X clean(); X alarm(0); X dprintf(stderr,"Got: %s\n",line); X switch (*line) { X case 'C': /* covered */ X covered = 1; X break; X case 'E': /* exposed */ X covered = 0; X break; X case '+': /* enable alarm */ X dprintf(stderr,"Arming alarm\n"); X armed = 1; X m_selectmenu(armed+1); X m_flush(); X break; X case '-': /* disable alarm */ X dprintf(stderr,"Disarming alarm\n"); X armed = 0; X fired = 0; X m_selectmenu(armed+1); X m_flush(); X break; X case 'A': /* show alarm time */ X if (alarm_time) { X m_moveprint(x,y,alarm_time); X m_movecursor(wx+fx,y); X m_flush(); X m_gets(line); X fired = 0; X } X break; X case 'X': /* redraw, reshape */ X setxy(); X break; X } X update(); X } X } X Xint Xupdate() X { X char *today(); X char *s = today(); X m_moveprint(x,y,s); X m_movecursor(wx+fx,y); X if (fired || (armed && alarm_time && strcmp(alarm_time,s)==0)) { X dprintf(stderr,"Fireing alarm %s\n",fired?"":"FIRST TIME"); X fired = 1; X if (covered) { X m_setmode(M_NOINPUT); X m_setmode(M_ACTIVATE); X } X m_setmode(M_WOB); X m_printstr("\007"); X m_flush(); X sleep(2); X m_clearmode(M_WOB); X if (covered) { X m_clearmode(M_ACTIVATE); X m_clearmode(M_NOINPUT); X } X } X m_flush(); X signal(SIGALRM,update); X alarm(POLL); X } X Xchar * Xtoday() X { X struct tm *tme, *localtime(); X static char result[9]; X long tmp,time(); X X tmp = time(0); X tme = localtime(&tmp); X sprintf(result,"%02d:%02d",FIX(tme->tm_hour),tme->tm_min); X return(result); X } X Xclean() X { X m_pop(0); X m_ttyreset(); X exit(1); X } X Xsetxy() X { X char *today(); X X get_font(&fx,&fy); X get_size(0,0,&wx,&wy); X x = (wx - strlen(today())*fx)/2; X y = fy + (wy - fy)/2; X if (x<0) x = 0; X if (y<0) y = 0; X m_clear(); X dprintf(stderr,"Setting %d x %d at %d x %d in %d x %d\n", X strlen(today())*fx,fy,x,y,wx,wy); X m_flush(); X } END_OF_FILE # end of 'demo/misc/clock.c' fi if test -f 'doc/zoom.1' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'doc/zoom.1'\" else echo shar: Extracting \"'doc/zoom.1'\" $5172 characters$ sed "s/^X//" >'doc/zoom.1' <<'END_OF_FILE' X'\" Copyright (c) 1988 Bellcore X'\" All Rights Reserved X'\" Permission is granted to copy or use this program, EXCEPT that it X'\" may not be sold for profit, the copyright notice must be reproduced X'\" on copies, and credit should be given to Bellcore where it is due. X'\" BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X'\" X'\" $Header: zoom.1,v 4.1 88/06/21 13:56:26 bianchi Exp $ X'\" $Source: /tmp/mgrsrc/doc/RCS/zoom.1,v $ X.TH zoom 1L "June 10, 1986" X.SH NAME Xzoom \- an icon editor for X.I mgr X.SH SYNOPSIS X.B zoom X<\fBicon file\fP> ... X.SH DESCRIPTION X.B zoom Xis a mouse driven icon editter for X.I mgr. X.B Zoom Xdivides the window into three regions, a banner line at the top containing Xfour status fields, Xa message line at the bottom, Xand the remainder of the window for an enlarged, or X.I zoomed Xrepresentation of X.I <icon> Xbeing editted. XIf the first file given on the command line is not an icon, Xzoom prompts for its width and height. X.LP XThe current state of zoom is indicated by the four status fields in the Xbanner line. X.TP X* XThe first, or X.I raster function Xfield displays the current raster-op function to be applied to the next Xedit operation. This function may be changed with the pop-up menu, Xactivated by pressing the middle mouse button while the mouse track is in the X.I raster function Xfield. XNormally the choices are X.B set, clear, toggle Xand X.B grid. XThe first three are raster-op functions; the X.I grid Xoption toggles the bitmap alignment grid. XIf the X.B put Xcommand is pending (see below), the raster-op choices become X.B copy, paint mask, Xand X.B exclusive-or. X.TP X* XThe second, or X.I edit Xfield displays one of the six possible edit functions: X.B Yank, Put, Shrink, Grow, Fix, Xand X.B Undo. XFix and Undo are performed when selected. X.B Fix Xchanges the window size Xto give square pixels. X.B Undo Xun-does the previous edit operation. XIf any of the other functions is selected, it becomes the pending function, Xand is highlighted. XWhen a function is pending, the next sweep operation performs that function Xon the group of pixels enclosed by the sweeping rectangle (the X.I selected Xpixels). X.RS X.TP X.B Yank Xcopies the X.I selected Xpixels into the yank buffer. X.TP X.B Put Xcombines the yank buffer with the X.I selected Xpixels in a manner determined Xby the current X.I raster function Xfield. X.TP X.B Shrink Xmakes the icon smaller by scaling the selected pixels to fill the entire Xwindow. X.TP X.B Grow Xmakes the icon bigger by scaling the entire icon to fit into the Xselected pixel region. X.RE X.TP X* XThe Third or X.I size Xfield displays the current X.I width Xand X.I height Xof the icon, in pixels. XThe size of the icon may be changed by selecting the pop-up menu Xwhen the mouse track is in the X.I size Xfield Xand responding to the prompt. XWhile in the prompt window, the menu permits the selection Xof several standard icon sizes. X.TP X* XThe fourth, and final field is the X.I file Xfield. XThe X.I file Xfield displays the current file name of the icon. XThe filing options X.B Save, Get, Yank, Xand XQuit Xare, as usual, accessed by a pop-up menu when the mouse track Xis in the X.I file Xfield. XThe X.I file Xoptions prompt for a file name. XA list of all of the files specified on the command line Xis available via the pop-up menu within the prompt window. X.RS X.TP X.B XSave Xsaves the icon by the specified name. X.TP X.B Get Xedits a new icon , tossing the current icon into the bit-bucket. X.TP X.B Yank Xcopies the specified icon into the X.I yank Xbuffer for use with the X.B put Xcommand. X.TP X.B Quit Xquits XZoom. Quit does X.B NOT Xsave the icon. A save must be explicitly issued first. XZoom may also be terminated by typing X"Q\er" to the window, or hitting your favorite interrupt key. X.RE X.LP XFor those who are not particularly font of rodents, all of the X.B zoom Xcommands may be accessed via 1 or 2 letter keyboard commands X(followed by a \er), some of which Xare: X X R Repaint window X x toggle alignment grid X w FIX window aspect ratio X u UNDO X X s1 select SET mode X s2 select CLEAR mode X s3 select TOGGLE mode X X f SAVE file X g GET a new file X y YANK a file X Q QUIT X X F1 select YANK function X F2 select PUT function X F3 SHRINK icon X F4 GROW icon X X P0 set COPY mode X P1 set PAINT mode X P2 set MASK mode X P3 set XOR mode X X.LP XOkay, now to edit the icon. X.TP X* XPressing the middle button and moving it either sets or clears the pixels Xit passes over. If the first pixel it touches is clear, the pixels will Xbe set; if it is set, all touched pixels will be cleared. X.TP X* XHolding, moving, then releasing the right mouse button sweeps out Xa rectangular region of X.I selected pixels. XIf no function is currently highlighted in the X.I edit Xfield, Xthe current raster-op function is performed on Xthe selected pixels. XOtherwise, the highlighted function is performed. X.SH BUGS X.TP 3 X* XZoom works best on small icons, running on the local machine. X.TP 3 X* XYou can't view the actual size of the icon being editted. X.TP 3 X* XIcon coordinates must be typed in exactly in the form of X.B x X, X.B y Xwith no spaces or tabs. X.SH SEE ALSO Xbrowse(1L) Xdump(5L) Xmgr(1L) END_OF_FILE # end of 'doc/zoom.1' fi if test -f 'font-32/Ugal12x20b' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'font-32/Ugal12x20b'\" else echo shar: Extracting \"'font-32/Ugal12x20b'\" $5330 characters$ sed "s/^X//" >'font-32/Ugal12x20b' <<'END_OF_FILE' Xbegin 644 gal12x20b.fnt XM& P4!8 XM !P'< [!P/'!X#@ .. '!X P'X#\ <#^!X'_ XM#X#\ #X XM !^< ?@!@ 8 , ' \ & < 'P XM >!P/ XM !P'< ['\9N#\'P <' . XM#\!P/\'^ \#^#@/_&<&> '\ !P_X#^_X?^?^#^^/'\'\^/? \' XMX'#X?\#X_X'_?_^'\/__^'^'/_!^< ?@#P X < / !N . !P .\ XM!P X!P#@ XM !P'< [/^9N'.'P XM \'@ .&<#P<>,/ \& ' <&..,/ /> !P<,&'<>.& XM.&&'<'!P!P<<. </<#&>..&><<.'9S<#<&=S<#<#,.!P. #@'X !P \ XM ' !N > !P .< !P !@ X!P#@ XM XM !P'<!W=_9\'.!P X#@ <&.'P8.8'!\& . &..<' XM ,.#\#X<.,#<..&.&,#<'!P!P<X. >/>#,..',.<.<#!P<#.,=S.&.& .!P XM. #@.< !P < ' #@ . < !P !@ XM <!P' XM !P'<'_=W/<'.!P!X#P#X <../P . '!\, XM. ...<' ./^#X<., <'. . , <'!P!P=P. >/?#,'.','<.<# XM!P<#.,=S/,', <!P' #@<. !\ < ' #@ . < !P XM #@ <!P' XM !P'<'_=P X#\#@!P!P!P!P XM X..!P . /#</\< ,',<'#@ ' < ..'#8<.< <'. . < <'!P!P?@ XM. >/?#<'.'<'<.> !P<#.,?S',', <!P' #@ !\#\=\'\#_#X#@'[/\'P XM ^<>!P_^-\#\_\#[>\'^?^??^'___/^/?_ <!P' XM !P #N/P X XM'P' !P!P=W!P X..!P .!^#<.>=\ ,#X>/'P#@ > / <<'&<<<< XM<'.,.,< <'!P!P? . ??;C<'..<'<,/@!P<#'8?^#X#X X!P#@#@ X'. XM?^.>.?..#@.?/>!P .<X!P?_?>&>>>&?/N..#@..<#=S>&<#</ X!P#@ XM XM !P #N'\!P/P& !P!P?_!P !P..!P <#^&< /?^ <!P/_'P'P XM!X?^'P X=[&<?\< <'/\/\< ?_!P!P? . ??9S<'/\<'?X'P!P<#'8.^!P!P XM X!P#@#@ &.>/,.,/<''\<...!P .=P!P=W..,/</,//..&#@...&=S XM/,.&8>!X!P#P XM !P '<!^#@?X !P!P'<!P #@..!P X / XM&< '>/ 8#X'W#@'P'P?^!\!P?_&,<.< <'.,.,< <'!P!P?@. ??9[<'. <' XM?@!\!P<#'8/^!P!P!P!P!P#@ ^<'< <'<'#@<...!P .?@!P=W..<' XM<'<'. / #@...&=S'X.& \ X!P#@'C XM !P '<!W#@<_ !P!P ?_ XM ?_ #@..!P!P ',< '<' 8&< ' #@? ?#@?O/^<'< <'. . <?<'!P XM!P?P. ;_8[<'. <'?P >!P<##@/^#X!P!P!P X#@ 'N<'< <'?_#@<. XM..!P .? !P=W..<'<'<'. 'P#@..',/^#P',!X <!P' /W XM !P ?^ XM!W'><? !X#P'<?_ ?_ ' ..!P#@ '/_ '<' X.. . ? ?#@?O,. XM<'< <'. . <'<'!P!P=X. ;W8?<'. <'=X /!P<##P/\&<!P#@!P X#@ XM ..<'< <'< #@.<..!P .?@!P=W..<'<'<'. !\#@..',/^!X',#P <!P' XM/^ XM ?^=W'S<> X#@?_!P #@' .,!P' 8'?_8'<' P.. . XM#@ 'P?^!\ =_,&<', <'. . ,'<'!P!P<\. ;W8/,&. .&<\8'!P<##P'< XM&>!P#@!P <#@ ..<'< <'< #@/X..!P .?P!P=W..<'<'<'. >#@.. XM#X/^#\#X'@ <!P' =^ XM .X?^.S<< \'@=W!P#@ 'P. ',!P XM.#<& <<'>& P.. <'P#@!X?^'P < 8'<'.#<&.#. .'<'!P!P<>.#9G8/.& XM. /&<>8'!P>&!@'<,.!P' !P <#@ ..>'>&>/. #@< ..!P .=X!P=W XM..>&<&>'. ,.#C..#X'<&>#X/# X!P#@8\ XM !P =P/\.S/_ <' XM!P!P'P 'P. 'X!P?_/\ <../\!P',!X'P'P > / #@. 8'<.'&<<.#. '' XM<'!P!P</.#9G8'',. '\</<.!P/^!@'<8'!P'#!^ .?@ />?.../?'' XM#@?^..!P .<\!P=W../,>,//. ..#V/>!P'<,/!P>' X!P#@ XM !P XM =P!P<>'W .. #X!P'P #@< #P/^?_'X <'\'X!@#X/@#@'P ' < #@ XM/_\/_\#\_P?_? #\^/'\!P^'?_]O\##X? #P^'?\'\'\!@'<\/#X/_!^ .?@ XM '_;\'\'W#\'P/_??'\ .^?'\__??'X?X'_? /\!\'W!P'<^?!P?_ > XM!P/ XM !P XM !P #_ !P 'X XM ,' ,. < ' XM !@ !P XM !P XM !P !P XM ,] __ 8# .. XM < ' #@ !P XM XM #@ #@ XM !@ ? __ XM 8# /, < ' # !P XM XM ' ' XM / XM ?^ 'X < ' ? XM !P XM & XM & . XM /\ #P ^ / X5 > !P X Xend END_OF_FILE # end of 'font-32/Ugal12x20b' fi if test -f 'font-32/Ugal12x20r' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'font-32/Ugal12x20r'\" else echo shar: Extracting \"'font-32/Ugal12x20r'\" $5330 characters$ sed "s/^X//" >'font-32/Ugal12x20r' <<'END_OF_FILE' Xbegin 644 gal12x20r.fnt XM& P4!8 XM !@&8 S!@.&!P# ,, &!P @'P#X 8#\!P'^ XM#P#X #P XM !\8 ? ! 0 ( & X $ 8 '@ XM <!@. XM !@&8 S'X1,#X'@ 8& , XM#X!@/X'\ X#\# /^$8$< 'X !@_P#\_P?\?\#\\/'X'X\.> X' XMP'#P?X#P_P'^?^\'X._O\'\'/^!\8 ? #@ P 8 . !, , !@ ,X XM!@ P!@# XM !@&8 S/\1,&,'@ XM X' ,$8#@8<(. X$ & 8$,,(. .< !@8($&8<,$ XM,$$&8&!@!@88, 8.8"$<,,$<88,&1B8"8$9B8"8"(,!@, # &P !@ X XM & !, < !@ ,8 !@ ! P!@# XM XM !@&8!F9N18&,!@ P# 8$,'@0,0&!8$ , $,,8& XM (,#X"P8,("8,,$,$("8&!@!@8P, <.<"(,,&(,8,8"!@8",(9B,$,$ ,!@ XM, # ,8 !@ 8 & # , 8 !@ ! XM 8!@& XM !@&8'_9F.8&,!@!P#@#P 8,,-@ , &!8( XM, ,,,8& ,/\"P8,( 8&, , ( 8&!@!@9@, <.>"(&,&(&8,8" XM!@8",(9B.(&( 8!@& # 8, !X 8 & # , 8 !@ XM # 8!@& XM !@&8'_9@ P#X# !@!@!@!@ XM P,,!@ , ."8/X8 (&(8&# & 8 ,,&"08,8 8&, , 8 8&!@!@; XM, <.6"8&,&8&8,< !@8",(=B&(&( 8!@& # !X#X9X'X#V#P# 'R-X'@ XM \8<!@W<)X#X[X#R<X'\?\>>\'_W^/\/?^ 8!@& XM !@ #,/@ P XM'@& !@!@9F!@ P,,!@ ,!\"8,<9X (#0<.'@# < . 88&$8888 XM8&,(,(8 8&!@!@> , 663"8&,,8&8(/ !@8"&0=T#0#0 P!@# # P&, XM;\,<,>,,# ,>.<!@ ,8P!@;N><$<<<$>-,,,# ,,8"9B<$8"8. P!@# XM XM !@ #,'X!@/@$ !@!@=N!@ !@,,!@ 8#\$8 .;\ 8!@/V'@'@ XM!P?\'@ P9R$8?X8 8&/X/X8 ?^!@!@> , 661B8&-X8&?P'@!@8"&0,T!@!@ XM P!@# # $,<.(,(.8&'X8,,,!@ ,9@!@9F,,(.8.(..,,$# ,,,$9B XM.(,$0<!P!@#@ XM !@ &8!\# =P !@!@&8!@ # ,,!@ P . XM$8 &<. 0"P'F# '@'@?\!X!@;Z$(8,8 8&,(,(8 8&!@!@? , 661R8&, 8& XM? !X!@8"&0-T!@!@!@!@!@# \8&8 8&8&# 8,,,!@ ,? !@9F,,8& XM8&8&, . # ,,,$9B'0,$ X P!@# '" XM !@ &8!F# 8V !@!@ ?^ XM ?^ # ,,!@!@ &(8 &8& 0$8 & # > ># ;*/\8&8 8&, , 8?8&!@ XM!@;@, 360R8&, 8&;@ <!@8"# .\"P!@!@!@ P# ',8&8 8&?^# 8, XM,,!@ ,> !@9F,,8&8&8&, '@# ,,&(-T#@&(!P 8!@& /F XM !@ ?\ XM!F&<8> !P#@&8?^ ?^ & ,,!@# &/^ &8& P,, , > ># ;*(, XM8&8 8&, , 8&8&!@!@9P, 3F0:8&, 8&9P .!@8"#@.X$8!@# !@ P# XM ,,8&8 8&8 # ,8,,!@ ,? !@9F,,8&8&8&, !X# ,,&(.T!P&(#@ 8!@& XM-L XM ?\9F&B8< P# =N!@ # & ,(!@& 0&?^0&8& @,, , XM# '@?\!X 9^($8&( 8&, , (&8&!@!@8X, 3F0.($, ,$8X0&!@8"#@&8 XM$<!@# !@ 8# ,,8&8 8&8 # /P,,!@ ,;@!@9F,,8&8&8&, <# ,, XM#0.T"X#0' 8!@& 9\ XM ,P?\,B88 X' 9F!@# '@, &(!@ XM,"8$ 88&<$ @,, 8'@# !P?\'@ 8 0&8&,"8$,", ,&8&!@!@8<,"1&0.,$ XM, .$8<0&!@<$! &8(,!@& !@ 8# ,,<&<$<., # 8 ,,!@ ,9P!@9F XM,,<$8$<&, (,#",,#0&8$<#0." P!@# 0X XM !@ 9@/X,B/^ 8& XM!@!@'@ '@, 'P!@?^/X 8,,/X!@&(!P'@'@ < . # , 0&8,&$88,", && XM8&!@!@8.,"1&0&&(, 'X8.8,!@/\! &80&!@&"!\ ,? .<>,,,.6&& XM# ?\,,!@ ,8X!@9F,,.(<(.., ,,#D.<!@&8(.!@<& P!@# XM !@ XM 9@!@8<'F ,, #P!@'@ # 8 #@/\?^'P 8'X'P! #P/ # '@ & 8 # XM/^X/_X#X_@?^> #X\/'X!@\'?^Y/X##P> #@\'?X'X'X! &8X/#P/^!\ ,? XM 'N3X'X'G#X'@/^>>'X ,\>'X[W>>'P?P'^> /X!X'F!@&8\?!@?^ < XM!@. XM !@ XM !@ #^ !@ 'P XM (& (, 8 & XM ! !@ XM !@ XM !@ !@ XM (Y __ 0" ,, XM 8 & # !@ XM XM # # XM ! > __ XM 0" .( 8 & " !@ XM XM & & XM . XM ?\ 'P 8 & > XM !@ XM $ XM $ , XM /X #@ \ / X5 < !@ X Xend END_OF_FILE # end of 'font-32/Ugal12x20r' fi if test -f 'src/fast_scroll.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/fast_scroll.c'\" else echo shar: Extracting \"'src/fast_scroll.c'\" $5271 characters$ sed "s/^X//" >'src/fast_scroll.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: fast_scroll.c,v 4.1 88/06/21 13:22:00 bianchi Exp $ X $Source: /tmp/mgrsrc/src/RCS/fast_scroll.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/fast_scroll.c,v $$Revision: 4.1 $"; X X/* X * fast scroll for 68010 assuming byte boundaries (SAU) X * This code is highly machine dependent X */ X X#include <stdio.h> X#include "bitmap.h" X X#define BYTESWIDE(x) ((x->primary->wide+7)>>3) X X#ifndef mc68020 X X/* these macros rely upon the proper register assignments */ X X#define START(x) asm("x: movl d7,d0") X#define LOOP(l) asm("l: movw a3@+,a4@+"); \ X asm(" dbf d0,l") X#define GOTO(x) asm(" dbf d5,x") X#define SKIP() asm(" addl d6,a4"); \ X asm(" addl d6,a3") X#define BYTE() asm(" movb a3@+,a4@+") X#define ADJ(x) asm(" subql #x,d7") X Xfast_scroll(map,x,y,wide,high,delta) Xregister BITMAP *map; /* a5 */ Xint x,y,wide,high,delta; X { X register unsigned char *dst = (unsigned char *) /* a4 */ X ((long) (map->data) + (y*BYTESWIDE(map) + (x>>3))); X register unsigned char *src = /* a3 */ X dst + (delta*BYTESWIDE(map)); X register long count = /* d7 */ X (wide>>4) - 1; /* # of shorts - 1 for inner dbf */ X register long skip = /* d6 */ X BYTESWIDE(map)-(wide>>3); /* bytes to skip at right edge */ X register long h = /* d5 */ X high-delta-1; /* # of lines to scroll */ X int which = (((long) dst)&1) + ((skip&1)<<1); X X switch (which) { X case 0: /* skip&1 == 0 */ X START(C0); LOOP(LP0); SKIP(); GOTO(C0); X break; X case 1: X ADJ(1); START(C1); BYTE(); LOOP(LP1); BYTE(); SKIP(); GOTO(C1); X break; X X case 2: /* skip&1 == 1 */ X START(C2); LOOP(LP2); BYTE(); SKIP(); GOTO(C2); X break; X case 3: X START(C3); BYTE(); LOOP(LP3); SKIP(); GOTO(C3); X break; X } X } X X/* X * fast scroll for 68020 assuming byte boundaries (SAU) X * This code is highly machine dependent X */ X X#else X X/* these macros rely upon the proper register assignments */ X X#define START(x) asm("x: movl d7,d0") X#define LOOP(l) asm("l: movl a3@+,a4@+"); \ X asm(" dbf d0,l") X#define GOTO(x) asm(" dbf d5,x") X#define SKIP() asm(" addl d6,a4"); \ X asm(" addl d6,a3") X#define WORD() asm(" movw a3@+,a4@+") X#define BYTE() asm(" movb a3@+,a4@+") X#define ADJ(x) asm(" subql #x,d7") X Xfast_scroll(map,x,y,wide,high,delta) Xregister BITMAP *map; /* a5 */ Xint x,y,wide,high,delta; X { X register unsigned char *dst = (unsigned char *) /* a4 */ X ((long) (map->data) + (y*BYTESWIDE(map) + (x>>3))); X register unsigned char *src = /* a3 */ X dst + (delta*BYTESWIDE(map)); X register long count = /* d7 */ X (wide>>5) - 1; /* # of longs - 1 for inner dbf */ X register long skip = /* d6 */ X BYTESWIDE(map)-(wide>>3); /* bytes to skip at right edge */ X register long h = /* d5 */ X high-delta-1; /* # of lines to scroll */ X int which = (((long) dst)&3) + ((skip&3)<<2); X X switch (which) { X case 0: /* skip&3 == 0 */ X START(C0); LOOP(LP0); SKIP(); GOTO(C0); X break; X case 1: X ADJ(1); START(C1); BYTE(); WORD(); LOOP(LP1); BYTE(); SKIP(); GOTO(C1); X break; X case 2: X ADJ(1); START(C2); WORD(); LOOP(LP2); WORD(); SKIP(); GOTO(C2); X break; X case 3: X ADJ(1); START(C3); BYTE(); LOOP(LP3); WORD(); BYTE(); SKIP(); GOTO(C3); X break; X X case 4: /* skip&3 == 1 */ X START(C4); LOOP(LP4); WORD(); BYTE(); SKIP(); GOTO(C4); X break; X case 5: X START(C5); BYTE(); WORD(); LOOP(LP5); SKIP(); GOTO(C5); X break; X case 6: X START(C6); WORD(); LOOP(LP6); BYTE(); SKIP(); GOTO(C6); X break; X case 7: X START(C7); BYTE(); LOOP(LP7); WORD(); SKIP(); GOTO(C7); X break; X X case 8: /* count%4 == 2 */ X START(C8); LOOP(LP8); WORD(); SKIP(); GOTO(C8); X break; X case 9: X ADJ(1); START(C9); BYTE(); WORD(); LOOP(LP9); X WORD(); BYTE(); SKIP(); GOTO(C9); X break; X case 10: X START(C10); WORD(); LOOP(LP10); SKIP(); GOTO(C10); X break; X case 11: X START(C11); BYTE(); LOOP(LP11); BYTE(); SKIP(); GOTO(C11); X break; X X case 12: /* count%4 == 3 */ X START(C12); LOOP(LP12); BYTE(); SKIP(); GOTO(C12); X break; X case 13: X ADJ(1); START(C13); BYTE(); WORD(); LOOP(LP13); X WORD(); SKIP(); GOTO(C13); X break; X case 14: X ADJ(1); START(C14); WORD(); LOOP(LP14); WORD(); X BYTE(); SKIP(); GOTO(C14); X break; X case 15: X START(C15); BYTE(); LOOP(LP15); SKIP(); GOTO(C15); X break; X } X } X X/* normal bit-blit version of the above (for testing) */ X XFast_scroll(map,x,y,wide,high,delta) Xregister BITMAP *map; /* a5 */ Xint x,y,wide,high,delta; X { X bit_blit(map,x&7,y,wide&7,high, X BIT_SRC,map,x&7,delta); X } X#endif END_OF_FILE # end of 'src/fast_scroll.c' fi if test -f 'src/get_text.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/get_text.c'\" else echo shar: Extracting \"'src/get_text.c'\" $5192 characters$ sed "s/^X//" >'src/get_text.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: get_text.c,v 4.1 88/06/21 13:33:49 bianchi Exp $ X $Source: /tmp/mgrsrc/src/RCS/get_text.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/get_text.c,v $$Revision: 4.1 $"; X X/* sweep out text rectangle */ X X#include <stdio.h> X#include "bitmap.h" X#include "defs.h" X#include "font.h" X#include "event.h" X X#define FSIZE(c) ((int) (W(font)->head.c)) X#define THICK 2 X X#define TOP 1 X#define MIDDLE 2 X#define BOTTOM 3 X#define ALL 4 X Xint Xget_text(screen,mouse,x,y,dx,dy,win,c) XBITMAP *screen; /* where to sweep out the box */ Xint mouse; /* file to get mouse coords from */ Xint x,y; /* starting position */ Xregister int *dx,*dy; /* box width,height */ XWINDOW *win; /* text window */ Xint c; /* E_SWTEXT or E_SWTEXTT */ X { X register int button; X int left,top; X int cols,rows; X int gx,gy; X int x_mouse, y_mouse; X int lastdx, lastdy; /* previous dx,dy */ X int newx = *dx * FSIZE(wide); X int newy = *dy * FSIZE(high); X rectangle text; X X /* set up text regions */ X X if (c == E_SWTEXT) /* no text region */ X text.x = text.y = text.wide = text.high = 0; X else if (!in_text(x,y,win)) { X button=move_mouse(screen,mouse,&mousex,&mousey,1); X return(0); X } X else X text = W(text); X X left = W(x0) + SUM_BDR + text.x; /* edge of window (pixels) */ X top = W(y0) + SUM_BDR + text.y; /* top of window (pixels) */ X cols = (text.wide ? text.wide : BIT_WIDE(W(window)))/FSIZE(wide); X rows = (text.wide ? text.high : BIT_HIGH(W(window)))/FSIZE(high); X gx = FSIZE(wide); /* char width (pixels) */ X gy = FSIZE(high); /* char height (pixels) */ X X x = (x-left)/gx; X y = (y-top)/gy; X X do_box(screen,x,y,dx,dy,top,left,cols,rows,gx,gy); /* on */ X do { X button=mouse_get(mouse,&x_mouse,&y_mouse); X newx += x_mouse<<1; X newy -= y_mouse<<1; X lastdx = *dx, *dx = newx/gx; X lastdy = *dy ,*dy = newy/gy; X if (lastdx != *dx || lastdy != *dy) { X do_box(screen,x,y,&lastdx,&lastdy,top,left,cols,rows,gx,gy); /* off*/ X if (do_box(screen,x,y,dx, dy, top,left,cols,rows,gx,gy)) /* on */ X newx = gx * *dx, newy = gy * *dy; X } X } X while (button!=0); X X do_box(screen,x,y,dx,dy,top,left,cols,rows,gx,gy); /* off*/ X return(1); X } X X/* piece boxes */ X Xint Xdo_box(screen,x1,y1,px,py,top,left,cols,rows,gx,gy) XBITMAP *screen; Xint x1,y1; /* starting pos in rows/cols */ Xint *px,*py; /* ending delta in rows/cols */ Xint top,left; /* start of window in pixels */ Xint cols,rows; /* size of window */ Xint gx,gy; /* character size (in pixels) */ X { X register int dx = *px; X register int dy = *py; X X if (dy < 0) X dy = 0; X X if (dy == 0 && dx < 0) X dx = 0; X X if (x1 + dx < 0) X dx = -x1; X X if (x1+dx > cols) X dx = cols-x1; X X if (y1+ dy >= rows) X dy = rows-y1-1; X X switch(dy) { X case 0: /* 1 line */ X tbox(screen, left+x1*gx-1, top+y1*gy-2, dx*gx, gy+3, ALL); X break; X case 1: /* two lines */ X tbox(screen, left+x1*gx-1, top+y1*gy-2, (cols-x1)*gx, gy+2, TOP); X tbox(screen, left-1, top + (y1+1)*gy, (x1+dx)*gx, gy+1, BOTTOM); X break; X default: /* many lines */ X tbox(screen, left+x1*gx-1, top + y1*gy-2, (cols-x1)*gx, gy+2, TOP); X tbox(screen, left-1, top + (y1+1)*gy, cols*gx, (dy-1)*gy, MIDDLE); X tbox(screen, left-1, top + (y1+dy)*gy, (x1+dx)*gx, gy+1, BOTTOM); X break; X } X if (*px != dx || *py != dy) { X *px = dx; *py = dy; X return(1); X } X else X return(0); X } X X/* draw a box */ X X#define INVERT(screen,x,y,wide,high) \ X bit_blit(screen,x,y,wide,high,BIT_NOT(BIT_DST),NULL_DATA,0,0); X Xstatic Xtbox(screen,x1,y1,dx,dy,side) XBITMAP *screen; Xint x1,y1,dx,dy; Xint side; X { X switch (side) { X case TOP: X INVERT(screen,x1,y1,dx,THICK); X INVERT(screen,x1+dx,y1,THICK, dy); X INVERT(screen,x1+THICK,y1+dy,dx-THICK,THICK); X INVERT(screen,x1,y1+THICK,THICK, dy-THICK); X break; X case MIDDLE: X INVERT(screen,x1+THICK,y1,dx-THICK,THICK); X INVERT(screen,x1+dx,y1+THICK,THICK, dy-THICK); X INVERT(screen,x1+THICK,y1+dy,dx-THICK,THICK); X INVERT(screen,x1,y1+THICK,THICK, dy-THICK); X break; X case BOTTOM: X INVERT(screen,x1+THICK,y1,dx-THICK,THICK); X INVERT(screen,x1+dx,y1+THICK,THICK, dy-THICK); X INVERT(screen,x1+THICK,y1+dy,dx,THICK); X INVERT(screen,x1,y1+THICK,THICK, dy); X break; X case ALL: X INVERT(screen,x1,y1,dx,THICK); X INVERT(screen,x1+dx,y1,THICK, dy); X INVERT(screen,x1+THICK,y1+dy,dx,THICK); X INVERT(screen,x1,y1+THICK,THICK, dy); X break; X } X } END_OF_FILE # end of 'src/get_text.c' fi if test -f 'src/getshell.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/getshell.c'\" else echo shar: Extracting \"'src/getshell.c'\" $5305 characters$ sed "s/^X//" >'src/getshell.c' <<'END_OF_FILE' X/* Copyright (c) 1987 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: getshell.c,v 4.1 88/06/21 13:33:51 bianchi Exp $ X $Source: /tmp/mgrsrc/src/RCS/getshell.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/RCS/getshell.c,v $$Revision: 4.1 $"; X X/* start a shell */ X X#include <sys/file.h> X#include <sys/signal.h> X#include <sgtty.h> X#include <stdio.h> X#include "bitmap.h" X#include "defs.h" X X#define SHELL "/bin/sh" X Xstatic char line[] = {"/dev/ptypX"}; Xstatic int pty_index=5; /* better hit rate than 0 */ Xextern char **environ; X X/* get a pty line */ X Xint Xgetapty() X { X register int i; X int fd; X X line[5] = 'p'; X for(line[8]='p';line[8]<'r';line[8]+= 1) X for (i=1;i<=16;i++) { X line[9]="0123456789abcdef"[(pty_index+i)%16]; X if ((fd = open(line,2)) >= 0) { X /* pty_index = (pty_index+i)%16; temp */ X line[5] = 't'; X return(fd); X } X } X return(-1); X } X Xint getatty() X { X int fd; X line[5]='t'; X fd=open(line,2); X if (fd<0) { X sleep(3); X return (open(line,2)); X } X return(fd); X } X Xchar * Xlast_tty() X { X return(line); X } X X/******************************************************************************/ X/* start a command */ X Xget_command(argv,file) Xchar **argv; Xint *file; X { X register int i; /* counter */ X int fd; /* file desc */ X int tty; /* fd of /dev/tty */ X int pid; /* pid of shell */ X int group; /* process group id */ X int tty_slots; /* # of tty slots */ X char *name, *get_path(); X char *getenv(); X char *shell = getenv("SHELL"); X char *arg[2]; X char who[MAXNAME]; X X if (argv == (char **) 0 ) { X argv = arg; X *argv = shell?shell:SHELL; X *(argv+1) = (char *) 0; X } X name = get_path(argv[0]); X X if (name == (char *) 0 || *name == '\0') X return(-2); X X#ifdef DEBUG X dprintf(s)(stderr,"EXECING: "); X for(i=0;argv[i]!='\0';i++) X dprintf(s)(stderr,"%s ",argv[i]); X dprintf(s)(stderr,"\n"); X#endif X X if ((*file=getapty()) < 0) X return(-1); X X if ((pid=fork()) > 0) { X /* parent side of fork */ X char buff[2]; X read(*file,buff,sizeof(buff)); /* wait for slave side to open */ X#ifdef DEBUG X dprintf(s)(stderr,"EXEC done, slave side open\r\n "); X#endif X return(pid); X } X else if (pid<0) X /* error side of fork */ X return(pid); X X /* child side of fork */ X for(i=0;i<NSIG;i++) X signal( i, SIG_DFL ); X X /* void association with controlling terminal */ X X#ifdef TIOCNOTTY X tty = open("/dev/tty",0); X ioctl(tty,TIOCNOTTY,0); X close(tty); X#endif X X /* open slave side of ptty */ X X if ((fd=getatty())<0) { X _quit(""); X perror("Slave side of p-tty won't open"); X exit(1); X } X X group=getpid(); X X#ifndef SYSV X tty_slots = getdtablesize(); X#else X tty_slots = 20; X#endif X X for(i=0;i<tty_slots;i++) if (i != fd) close(i); X X /* set the uid-0 stuff up */ X X if (geteuid() < 1) { X int uid = getuid(); X fchmod(fd,0622); X fchown(fd,uid,-1); X setreuid(uid,uid); X X uid = getgid(); X fchown(fd,-1,uid); X setregid(uid,uid); X } X X i = dup(fd); X close(fd); X dup(i); X dup(i); X X setpgrp(group,group); X ioctl(0,TIOCSPGRP,&group); X X adjust_mode(NTTYDISC,ECHO|CRMOD|EVENP|ODDP); X restore_modes(0); X X /* add a utmp entry */ X X#ifdef WHO X add_utmp(0,sprintf(who,"%s%c",HOST,line[9])); X#endif X X /* start the command */ X X#ifdef DEBUG X dprintf(s)(stderr,"execing %s (%s ...)\r\n",name,*argv); X#endif X X do_env("TERM=",TERMNAME); X do_env("TERMCAP=",""); X X write(2,"\n",1); /* tell master that slave side is open */ X execve(name,argv,environ); X _exit(1); X } X X/* half open a ptty then return */ X Xchar * Xhalf_open(file) Xint *file; X { X register int i; /* counter */ X int pid; /* file desc */ X X if ((*file=getapty()) < 0) X return((char *) 0); X ioctl(*file,TIOCREMOTE,0); /* I dunno */ X return(line); X } X X/* get a complete path name from command */ X Xstatic char path[512]; Xstatic char start[512]; X Xchar * Xget_path(name) Xchar *name; X { X char *getenv(), *index(); X register char c, *next, *list; X X if (index("/.",*name)) X if (access(name,X_OK)==0) X return(name); X else X return((char *)0); X X strcpy(start,getenv("PATH")); X for(list=start;next=index(list,':');list=next+1) { X *next = '\0'; X sprintf(path,"%s/%s",list,name); X if (access(path,X_OK) == 0) X return(path); X } X X sprintf(path,"%s/%s",list,name); X if (list && access(path,X_OK) == 0) { X return(path); X } X else { X return((char *) 0); X } X } X X/* change an environment variable */ X Xdo_env(name,value) Xchar *name, *value; X { X register int i; X int n = strlen(name); X X for(i=0;environ[i] != (char *) 0;i++) X if (strncmp(environ[i],name,n) == 0) { X strcpy(environ[i]+n,value); X break; X } X } END_OF_FILE # end of 'src/getshell.c' fi if test -f 'src/oblit/line.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'src/oblit/line.c'\" else echo shar: Extracting \"'src/oblit/line.c'\" $5272 characters$ sed "s/^X//" >'src/oblit/line.c' <<'END_OF_FILE' X/* Copyright (c) 1988 Bellcore X * All Rights Reserved X * Permission is granted to copy or use this program, EXCEPT that it X * may not be sold for profit, the copyright notice must be reproduced X * on copies, and credit should be given to Bellcore where it is due. X * BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM. X */ X/* $Header: line.c,v 4.2 88/07/07 10:57:06 sau Exp $ X $Source: /tmp/mgrsrc/src/oblit/RCS/line.c,v $ X*/ Xstatic char RCSid_[] = "$Source: /tmp/mgrsrc/src/oblit/RCS/line.c,v $$Revision: 4.2 $"; X X/* Draw a line 16 bit version */ X X#include "bitmap.h" X Xbit_line(dest, x0, y0, x1, y1, func) XBITMAP *dest; Xint x0, y0, x1, y1; Xint func; X{ X register int r, rincr, rdecr, d_incr, count; X register unsigned short bit; X register unsigned short *dst; X int temp, dx, dy; X X /* clip here */ X X#define TOP 1 X#define BOTTOM 2 X#define LEFT 4 X#define RIGHT 8 X X#define crossings(x,y) \ X (x<0 ? LEFT : x>= (b->wide) ? RIGHT : 0) + \ X (y < 0 ? TOP : y >= (b -> high) ? BOTTOM : 0) X X { X register BITMAP *b = dest; X X /* The classic clipping algorithm */ X X int Cross0 = crossings(x0, y0); X int Cross1 = crossings(x1, y1); X X while (Cross0 || Cross1) { X int Cross, x, y; X if (Cross0 & Cross1) X return; X if (Cross0 != 0) X Cross = Cross0; X else X Cross = Cross1; X if (Cross & (LEFT | RIGHT)) { X int edge = (Cross & LEFT) ? 0 : b->wide - 1; X y = y0 + (y1 - y0) * (edge - x0) / (x1 - x0); X x = edge; X } X else if (Cross & (TOP | BOTTOM)) { X int edge = (Cross & TOP) ? 0 : b->high - 1; X x = x0 + (x1 - x0) * (edge - y0) / (y1 - y0); X y = edge; X } X if (Cross == Cross0) { X x0 = x; X y0 = y; X Cross0 = crossings(x, y); X } X else { X x1 = x; X y1 = y; X Cross1 = crossings(x, y); X } X } X x0 += b->x0; X y0 += b->y0; X x1 += b->x0; X y1 += b->y0; X } X X /* always left to right */ X X if (x1 < x0) { X temp = x1, x1 = x0, x0 = temp; X temp = y1, y1 = y0, y0 = temp; X } X dx = x1 - x0; X dy = y1 - y0; X if (dy > 0) X d_incr = BIT_LINE(dest); X else X d_incr = -(BIT_LINE(dest)), dy = -dy; X X dst = (x0 >> 4) + y0 * (BIT_LINE(dest)) + (dest->data); /*-*/ X bit = (0x8000 >> (x0 & 15)); X X /* */ X X if (dx > dy) X switch (OPCODE(func)) { X case OPCODE(SRC): X case OPCODE(SRC | DST): X case OPCODE(SRC | ~DST): X case OPCODE(~0): X { X rincr = (dx - dy) << 1; X rdecr = -(dy << 1); X r = dx + rdecr; X for (count = dx; count >= 0; count--) { X *dst |= bit; X if ((bit >>= 1) == 0) { X bit = 0x8000; X dst++; X } X X ; X if (r < 0) { X dst += d_incr; X r += rincr; X } X X else { X r += rdecr; X } X X } X X } X X ; X break; X case OPCODE(~SRC): X case OPCODE(~(SRC|DST)): X case OPCODE(DST & ~SRC): X case OPCODE(0): X { X rincr = (dx - dy) << 1; X rdecr = -(dy << 1); X r = dx + rdecr; X for (count = dx; count >= 0; count--) { X *dst &= ~bit; X if ((bit >>= 1) == 0) { X bit = 0x8000; X dst++; X } X X ; X if (r < 0) { X dst += d_incr; X r += rincr; X } X X else { X r += rdecr; X } X X } X X } X X ; X break; X case OPCODE(SRC ^ DST): X case OPCODE(~DST): X case OPCODE(SRC & ~DST): X case OPCODE(~(SRC&DST)): X { X rincr = (dx - dy) << 1; X rdecr = -(dy << 1); X r = dx + rdecr; X for (count = dx; count >= 0; count--) { X *dst ^= bit; X if ((bit >>= 1) == 0) { X bit = 0x8000; X dst++; X } X X ; X if (r < 0) { X dst += d_incr; X r += rincr; X } X X else { X r += rdecr; X } X X } X X } X X ; X break; X } X X else X switch (OPCODE(func)) { X case OPCODE(SRC): X case OPCODE(SRC | DST): X case OPCODE(SRC | ~DST): X case OPCODE(~0): X { X rincr = (dy - dx) << 1; X rdecr = -(dx << 1); X r = dy + rdecr; X for (count = dy; count >= 0; count--) { X *dst |= bit; X dst += d_incr; X if (r < 0) { X if ((bit >>= 1) == 0) { X bit = 0x8000; X dst++; X } X X ; X r += rincr; X } X X else { X r += rdecr; X } X X } X X } X X ; X break; X case OPCODE(~SRC): X case OPCODE(~(SRC|DST)): X case OPCODE(DST & ~SRC): X case OPCODE(0): X { X rincr = (dy - dx) << 1; X rdecr = -(dx << 1); X r = dy + rdecr; X for (count = dy; count >= 0; count--) { X *dst &= ~bit; X dst += d_incr; X if (r < 0) { X if ((bit >>= 1) == 0) { X bit = 0x8000; X dst++; X } X X ; X r += rincr; X } X X else { X r += rdecr; X } X X } X X } X X ; X break; X case OPCODE(SRC ^ DST): X case OPCODE(~DST): X case OPCODE(SRC & ~DST): X case OPCODE(~(SRC&DST)): X { X rincr = (dy - dx) << 1; X rdecr = -(dx << 1); X r = dy + rdecr; X for (count = dy; count >= 0; count--) { X *dst ^= bit; X dst += d_incr; X if (r < 0) { X if ((bit >>= 1) == 0) { X bit = 0x8000; X dst++; X } X X ; X r += rincr; X } X X else { X r += rdecr; X } X X } X X } X X ; X break; X } X X} END_OF_FILE # end of 'src/oblit/line.c' fi echo shar: End of archive 21 $of 61$. cp /dev/null ark21isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \ 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 \ 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 \ 55 56 57 58 59 60 61 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 61 archives. rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0